﻿Public Class RolNegocio


    Public Function insertar(ByVal nombre As String, ByVal descripcion As String) As Rol

        Dim gato As New Rol()
        gato.nombre = nombre
        gato.descripcion = descripcion


        Dim dao As New RolDAO
        Return dao.insertar(gato)
    End Function

    Public Function listar() As Collection
        Dim dao As New RolDAO
        Return dao.listar()
    End Function



End Class
